﻿Module Module1
  Public Sub main()
    Dim auto As New Automobile

    If auto.SiMuove Then
      Console.WriteLine("L'auto si muove")
    Else
      Console.WriteLine("L'auto è ferma")
    End If

    auto.Avvia()

    If auto.SiMuove Then
      Console.WriteLine("L'auto si muove")
    Else
      Console.WriteLine("L'auto è ferma")
    End If

    auto.Arresta()

    If auto.SiMuove Then
      Console.WriteLine("L'auto si muove")
    Else
      Console.WriteLine("L'auto è ferma")
    End If

    Console.ReadLine()
  End Sub
End Module

